home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / talkdemo / txt / talkmenu.def < prev    next >
Text File  |  1993-11-04  |  738b  |  47 lines
  1. DEFINITION MODULE TalkMenu;
  2. (*$ LargeVars:=FALSE *)
  3.  
  4. FROM IntuitionD    IMPORT    Menu,MenuPtr,MenuItem,IDCMPFlags,IDCMPFlagSet;
  5.  
  6.   (*
  7.    * Menü-Aufbau:
  8.    *
  9.    * Project        Edit    Options
  10.    * ======================================
  11.    * Open Phonemes...    Reset    Save Icons?
  12.    * Open Voice...
  13.    * Save Phonemes...
  14.    * Save Voice...
  15.    * Talk
  16.    * About
  17.    * Quit
  18.    *)
  19.  
  20. CONST
  21.   idcmpFlags=IDCMPFlagSet{menuPick};
  22.  
  23. TYPE
  24.   (* userData: *)
  25.   MenuAction=(
  26.     openPhonID,
  27.     openVoiceID,
  28.     savePhonID,
  29.     saveVoiceID,
  30.     talkID,
  31.     aboutID,
  32.     quitID,
  33.     resetID,
  34.     iconID
  35.     );
  36.  
  37.   ExtItemPtr=POINTER TO RECORD
  38.     m:MenuItem;
  39.     user:LONGINT; (* ORD(MenuAction) *)
  40.   END;
  41.  
  42. VAR
  43.   (*$ LongAlign:=TRUE *)
  44.   myMenu:MenuPtr;
  45.  
  46. END TalkMenu.def
  47.